(match-string-no-properties): Use substring-no-properties.

diff --git a/lisp/subr.el b/lisp/subr.el
index 2e7b2f12ab033f400b7e45ddd4c1903599be9ce2..641d81a6fb612f5d5a3bd90da46d6fccdd28fb2c 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1985,10 +1985,8 @@ Zero means the entire text matched by the whole regexp or whole string.
 STRING should be given if the last search was by `string-match' on STRING."
   (if (match-beginning num)
       (if string
-         (let ((result
-                (substring string (match-beginning num) (match-end num))))
-           (set-text-properties 0 (length result) nil result)
-           result)
+         (substring-no-properties string (match-beginning num)
+                                  (match-end num))
        (buffer-substring-no-properties (match-beginning num)
                                        (match-end num)))))